SuperStrict
Framework BRL.Retro
Include "./library/php.inc.bmx";

Print "php Test 3~n";

' ////////

Local strWordCount$[] = str_word_count2( "This is a test word count thing", 2 );

For Local cnt%=0 To strWordCount.Length - 1
	Print strWordCount[cnt];
Next

strWordCount = str_word_count2( "This is a test word count thing" );

For Local cnt%=0 To strWordCount.Length - 1
	Print strWordCount[cnt];
Next

' ////////

Print "~n~nCount Test~n";

Local varstr$;

If ( empty( varstr ) )
	Print "String Variable is empty";
End If

Local varint%;

If ( empty_int( varint ) )
	Print "Int Variable is empty";
End If

Local varfloat#;

If ( empty_float( varfloat ) )
	Print "Float Variable is empty";
End If

Print "~n";

varstr = "";
varint = 0;
varfloat = 0;

If ( empty( varstr ) )
	Print "String Variable is still empty";
End If

If ( empty_int( varint ) )
	Print "Int Variable is still empty";
End If

If ( empty_float( varfloat ) )
	Print "Float Variable is still empty";
End If
